home *** CD-ROM | disk | FTP | other *** search
/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / dev / e / cha_source.lha / cha_source / test_oss_input.e < prev    next >
Encoding:
Text File  |  1999-12-18  |  1.0 KB  |  30 lines
  1. /*==========================================================================+
  2. | test_oss_input.e                                                          |
  3. | test reading from oss                                                     |
  4. | test passed                                                               |
  5. +--------------------------------------------------------------------------*/
  6.  
  7. MODULE '*oss', '*oss_input'
  8.  
  9. /*-------------------------------------------------------------------------*/
  10.  
  11. PROC main() HANDLE
  12.     DEF i, oi = NIL : PTR TO oss_input
  13.     oss_init()
  14.     -> initialise
  15.     NEW oi.oss_input(1)
  16.     -> check stuff
  17.     FOR i := 1 TO 20
  18.         WriteF('\d[4]\n', ! oi.read() * 100.0 !)
  19.     ENDFOR
  20.     WriteF('all ok\n')
  21. EXCEPT DO
  22.     END oi
  23.     oss_cleanup()
  24.     -> report errors
  25. ENDPROC IF exception THEN 5 ELSE 0
  26.  
  27. /*--------------------------------------------------------------------------+
  28. | END: test_oss_input.e                                                     |
  29. +==========================================================================*/
  30.